home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / modules / nessus-2.2.8.mo / usr / lib / nessus / plugins / misc_func.inc < prev    next >
Text File  |  2005-03-31  |  12KB  |  530 lines
  1. # -*- Fundamental -*-
  2. #
  3. # (C) 2002 Michel Arboi <arboi@alussinan.org>
  4. # $Revision: 1.49 $
  5.  
  6. function replace_or_set_kb_item(name, value)
  7. {
  8.  if (defined_func("replace_kb_item"))
  9.   replace_kb_item(name: name, value: value);
  10.  else
  11.   set_kb_item(name: name, value: value);
  12. }
  13.  
  14. function register_service(port, proto, ipproto)
  15. {
  16.   local_var    k;
  17.   if (! ipproto) ipproto = "tcp";
  18.   if (! service_is_unknown(port:port, ipproto: ipproto))
  19.   {
  20.     if (debug_level) display("service is already known on port ", ipproto, ":", port, "\n");
  21.     #return(0);
  22.   }
  23.    
  24.   k = strcat("Known/", ipproto, "/", port);
  25.   set_kb_item(name: k, value: proto);
  26.   if (ipproto == "tcp") k = strcat("Services/", proto);
  27.   else k = strcat("Services/", ipproto, "/", proto);
  28.   replace_or_set_kb_item(name: k, value: port);
  29.   #display("register_service: port=", port, ", proto=", proto, "\n");
  30. }
  31.  
  32. # This function may fork!
  33. function known_service(port, ipproto)
  34. {
  35.   local_var    k, p;
  36.   if (! ipproto) ipproto = "tcp";
  37.   k = strcat("Known/", ipproto, "/", port);
  38.   p = get_kb_item(k);
  39.   #if (p) { display("Known service on port ", port, "\n"); }
  40.   #else { display("Unknown service on port ", port, "\n"); }
  41.   return p;
  42. }
  43.  
  44. # This function does not fork!
  45. function service_is_unknown(port, ipproto)
  46. {
  47.   local_var    k, p;
  48.   if (! ipproto) ipproto = "tcp";
  49.   k = strcat("Known/", ipproto, "/", port);
  50.   p = get_kb_list(k);
  51.   if (isnull(p)) return TRUE;
  52.   foreach k (p)
  53.     if (k != "unknown")    # fool proof
  54.       return FALSE;
  55.   return TRUE;
  56. }
  57.  
  58.  
  59.  
  60. function set_mysql_version(port, version)
  61. {
  62.   local_var    sb;
  63.   sb = string("mysql/version/", port);
  64.   set_kb_item(name: sb, value: version);
  65. }
  66.  
  67. function get_mysql_version(port)
  68. {
  69.   local_var    sb, vers, soc, result, MySQL_version, end_found;
  70.   sb = string("mysql/version/", port);
  71.   vers = get_kb_item(sb);
  72.   if (vers) return(vers);
  73.   else { # Get it on the fly.
  74.     if ( ! get_port_state(port) ) return NULL;
  75.     soc = open_sock_tcp(port);
  76.     if(!soc) return(NULL);
  77.     result = recv(socket:soc, length:1000);
  78.     close(soc);
  79.     if(strlen(result) < 6)return(NULL);
  80.     if("is not allowed" >< result)return(NULL);
  81.     if("is blocked" >< result) return(NULL);
  82.     MySQL_version = "";
  83.     if ((result[1] == raw_string(0x00)) && (result[2] == raw_string(0x00)) &&
  84.        (result[3] == raw_string(0x00)) && ((ord(result[4]) > 8) && (ord(result[4]) < 12))){
  85.       end_found = FALSE;
  86.       for (i = 0; end_found == FALSE ; i = i + 1) {
  87.         if (result[5+i] == raw_string(0x00)) {
  88.           end_found = TRUE;
  89.         } else {
  90.           MySQL_version = string(MySQL_version, result[5+i]);
  91.         }
  92.       }
  93.       set_mysql_version(port:port, version:MySQL_version);
  94.       return(MySQL_version);
  95.     }
  96.   }
  97.   return(NULL);
  98. }
  99.  
  100. function get_unknown_banner(port, ipproto, dontfetch)
  101. {
  102.   local_var    sb, banner, soc, req, tcp, p;
  103.  
  104.   if (! ipproto) ipproto = "tcp";
  105.   tcp = ipproto == 'tcp';
  106.   if (tcp)
  107.    sb = strcat("unknown/banner/", port);
  108.   else
  109.    sb = strcat("unknown/banner/", ipproto, "/", port);
  110.  
  111.   banner = get_kb_item(sb);
  112.   if (banner) return(banner);
  113.  
  114.   banner = get_kb_item("Banner/"+port);
  115.   if (banner) return(banner);
  116.                                                                                 
  117.   banner = get_kb_item("Amap/"+ipproto+"/"+port+"/FullBanner");
  118.   if (banner) return(banner);
  119.  
  120.   foreach p (make_list("spontaneous", "get_http", "help"))
  121.   {
  122.     banner = get_kb_item("FindService/"+ipproto+"/"+port+"/"+p);
  123.     if (banner) return(banner);
  124.   }
  125.  
  126.   if (dontfetch) return(NULL);
  127.   if (! get_port_state(port)) return (NULL);
  128.   if (! tcp) return (NULL);
  129.  
  130.   soc = open_sock_tcp(port);
  131.   if(!soc) return (NULL);
  132.   # I don't think that it makes sense to send an HTTP request
  133.   #req = http_head(item:"/", port:port);
  134.   #send(socket:soc, data:req);
  135.   banner = recv(socket:soc, length:2048);
  136.   close(soc);
  137.   if (banner)
  138.     replace_or_set_kb_item(name: sb, value: banner);
  139.   return(banner);
  140. }
  141.  
  142. function set_unknown_banner(port, banner, ipproto)
  143. {
  144.   local_var    sb;
  145.   if (! ipproto || ipproto == 'tcp')
  146.     sb = string("unknown/banner/", port);
  147.   else
  148.     sb = strcat('unknown/banner/', ipproto, '/', port);
  149.   set_kb_item(name: sb, value: banner);
  150. }
  151.  
  152. #
  153. # Get the banner for a given service
  154. # You must also specify a default port, in case this is not in the kb
  155. #
  156. function get_service_banner_line(service, port, ipproto)
  157. {
  158.   local_var    banner, soc, key, gport, tcp;
  159.   tcp = !ipproto || ipproto == 'tcp';
  160.   if (tcp)
  161.    gport = get_kb_item(strcat("Services/", service));
  162.   else
  163.    gport = get_kb_item(strcat("Services/", ipproto, "/", service));
  164.   if(!gport) gport = port;
  165.  
  166.   if (tcp) 
  167.    key = strcat(service, "/banner/", gport);
  168.   else
  169.    key = strcat(service, "/banner/", ipproto, "/", gport);
  170.  
  171.   banner = get_kb_item(key);
  172.   
  173.   if(!banner)
  174.   {
  175.     if (! tcp) return;
  176.  
  177.     if(get_port_state(gport))
  178.     {
  179.       soc = open_sock_tcp(gport);
  180.       if(soc)
  181.       { 
  182.     banner = recv_line(socket:soc, length:2048);
  183.     close(soc);
  184.       }
  185.     }
  186. #   if (banner) set_kb_item(name: key, value: banner);
  187.   }
  188.   
  189.   return(banner);
  190. }
  191. #
  192. # Fast replacement for getrpcport() which uses the libc
  193. #
  194. function get_rpc_port(program, protocol, portmap)
  195. { 
  196.  local_var    broken, req, soc, r, port;
  197.  local_var    a, b, c, d, p_a, p_b, p_c, p_d, pt_a, pt_b, pt_c, pt_d;
  198.  
  199.  
  200.  
  201.  a = rand() % 255;
  202.  b = rand() % 255;
  203.  c = rand() % 255;
  204.  d = rand() % 255;
  205.  
  206.  p_a = program / 16777216;     p_a = p_a % 256;
  207.  p_b = program / 65356;     p_b = p_b % 256;
  208.  p_c = program / 256;       p_c = p_c % 256;
  209.  p_d = program % 256;
  210.  
  211.  pt_a = protocol / 16777216; pt_a = pt_a % 256;
  212.  pt_b = protocol / 65535   ; pt_b = pt_b % 256;
  213.  pt_c = protocol / 256;    ; pt_c = pt_c % 256;
  214.  pt_d = protocol % 256;
  215.  
  216.  
  217.  req = raw_string(a,     b,     c,     d,     # XID
  218.            0x00, 0x00, 0x00, 0x00,    # Msg type: call
  219.           0x00, 0x00, 0x00, 0x02,    # RPC Version
  220.           0x00, 0x01, 0x86, 0xA0,    # Program
  221.           0x00, 0x00, 0x00, 0x02,    # Program version
  222.           0x00, 0x00, 0x00, 0x03,    # Procedure
  223.           0x00, 0x00, 0x00, 0x00,    # Credentials - flavor
  224.           0x00, 0x00, 0x00, 0x00,     # Credentials - length
  225.           0x00, 0x00, 0x00, 0x00,    # Verifier - Flavor
  226.           0x00, 0x00, 0x00, 0x00,    # Verifier - Length
  227.           
  228.           p_a,  p_b,  p_c,  p_d,    # Program
  229.           0xFF, 0xFF, 0xFF, 0xFF,    # Version (any)
  230.           pt_a, pt_b, pt_c, pt_d,    # Proto (udp)
  231.           0x00, 0x00, 0x00, 0x00    # Port
  232.            );
  233.     
  234.       
  235.  if(isnull(portmap)){
  236.    port = int(get_kb_item("rpc/portmap"));
  237.    if(port == 0)port = 111;
  238.    }
  239.  else port = portmap;
  240.        
  241.       
  242.  broken = get_kb_item(string("/tmp/rpc/noportmap/", port));
  243.  if(broken)return(0);
  244.  
  245.        
  246.  soc = open_sock_udp(port);
  247.  send(socket:soc, data:req);
  248.  r = recv(socket:soc, length:1024);
  249.  
  250.  close(soc);
  251.  if(!r)
  252.  {
  253.   set_kb_item(name:string("/tmp/rpc/noportmap/", port), value:TRUE);
  254.   return(0);
  255.  }
  256.  
  257.  if(strlen(r) < 28)
  258.   return(0);
  259.  else
  260.   {
  261.    p_d = ord(r[27]);
  262.    p_c = ord(r[26]);
  263.    p_b = ord(r[25]);
  264.    p_a = ord(r[24]);
  265.    port = p_a;
  266.    port = port * 256;
  267.    port = port +p_b; 
  268.    port = port * 256;
  269.    port = port + p_c; 
  270.    port = port * 256;
  271.    port = port + p_d;
  272.    return(port);
  273.   }
  274. }
  275.  
  276. #
  277. function rand_str(length, charset)
  278. {
  279.   local_var    l, i, s, n;
  280.  
  281.   if (! charset) 
  282.    charset="abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789_";
  283.   if (isnull(length))
  284.     length = 8;
  285.   l = strlen(charset);
  286.   s = "";
  287.   for (i = 0; i < length; i ++)
  288.   {
  289.     n = rand() % l;
  290.     s += charset[n];
  291.   }
  292.   return s;
  293. }
  294.  
  295.  
  296.  
  297. function add_port_in_list(list, port)
  298. {
  299.  local_var l;
  300.  
  301.  
  302.  if(!get_port_state(port))
  303.  {
  304.   if(isnull(list))return make_list();
  305.   else return list;
  306.  }
  307.  
  308.  if(isnull(list))return make_list(port);
  309.  
  310.  foreach l (list)
  311.  { 
  312.   if(l == port)
  313.    return list;
  314.  }
  315.  
  316.  return make_list(list, port);
  317. }
  318.  
  319. # hex2raw was written by Renaud?
  320.  
  321. function hex2raw(s)
  322. {
  323.  local_var i, j, ret, l;
  324.  
  325.  s = chomp(s);    # remove trailing blanks, CR, LF...
  326.  l = strlen(s);
  327.  if (l % 2) display("hex2raw: odd string: ", s, "\n");
  328.  for(i=0;i<l;i+=2)
  329.  {
  330.   if(ord(s[i]) >= ord("0") && ord(s[i]) <= ord("9"))
  331.         j = int(s[i]);
  332.   else
  333.         j = int((ord(s[i]) - ord("a")) + 10);
  334.  
  335.   j *= 16;
  336.   if(ord(s[i+1]) >= ord("0") && ord(s[i+1]) <= ord("9"))
  337.         j += int(s[i+1]);
  338.   else
  339.         j += int((ord(s[i+1]) - ord("a")) + 10);
  340.   ret += raw_string(j);
  341.  }
  342.  return ret;
  343. }
  344.  
  345. function report_service(port, svc, banner)
  346. {
  347.  local_var    k, name, a;
  348.  
  349.  svc = tolower(svc);
  350.  k = strcat(svc, "/banner/", port);
  351.  set_kb_item(name: k, value: banner);
  352.  register_service(port: port, proto: svc);
  353.  if (svc == 'www') name = 'web server';
  354.  else if (svc == 'proxy') name = 'web proxy';
  355.  else if (svc == 'hylafax-ftp' || svc == 'hylafax') name = 'HylaFax server';
  356.  else if (svc == 'agobot.fo') name = 'Agobot.fo backdoor';
  357.  else if (svc == 'unknown_irc_bot') name = 'IRC bot';
  358.  else name = toupper(svc) +' server';
  359.  a = tolower(name[0]);
  360.  if (a == 'a' || a == 'e' || a == 'i' || a == 'o' || a == 'h') a = 'An ';
  361.  else a = 'A ';
  362.  security_note(port: port, data: a + name + ' is running on this port');
  363. }
  364.  
  365.  
  366.  
  367.  
  368.  
  369. function base64_decode(str)
  370. {
  371.  local_var len, i, j, k, ret, base64, b64;
  372.  len = strlen(str);
  373.  ret = "";
  374.  
  375.  base64 = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/";
  376.  
  377.  for (i = 0; i < 256; i++)
  378.    b64[i] = 0;
  379.  for (i = 0; i < strlen(base64); i++)
  380.    b64[ord(base64[i])] = i;
  381.  
  382.  for(j=0;j<len;j+=4)
  383.  {
  384.    for (i = 0; i < 4; i++)
  385.    {
  386.     c = ord(str[j+i]);
  387.     a[i] = c;
  388.     b[i] = b64[c];
  389.    }
  390.  
  391.    o[0] = (b[0] << 2) | (b[1] >> 4);
  392.    o[1] = (b[1] << 4) | (b[2] >> 2);
  393.    o[2] = (b[2] << 6) | b[3];
  394.    if (a[2] == ord('='))
  395.      i = 1;
  396.    else if (a[3] == ord('='))
  397.      i = 2;
  398.    else
  399.      i = 3;
  400.    for(k=0;k<i;k++)
  401.       ret += raw_string(int(o[k]) & 255);
  402.    
  403.    if (i < 3) 
  404.      break;
  405.  }
  406.  
  407.  return ret;
  408. }
  409.  
  410. __base64_code = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/";
  411. function base64_code(c)
  412. {
  413.  return(__base64_code[c]);
  414. }
  415.  
  416. function pow2(x)
  417. {
  418.  __ret = 1;
  419.  while(x)
  420.   {
  421.   __ret = __ret * 2;
  422.   x = x  - 1;
  423.   }
  424.  return(__ret);
  425. }
  426.  
  427. function base64(str)
  428. {
  429.  len = strlen(str);
  430.  i = 0;
  431.  ret = "";
  432.  char_count = 0;
  433.  _bits = 0;
  434.  while(i < len)
  435.  {
  436.   _bits = _bits + ord(str[i]);
  437.   char_count = char_count + 1;
  438.   if(char_count == 3)
  439.   {
  440.     val = _bits / 262144;
  441.     ret = string(ret, base64_code(c:val));
  442.     val = _bits / 4096;
  443.     val = val & 0x3F;
  444.     ret = string(ret, base64_code(c:val));
  445.     val = _bits / 64;
  446.     val = val & 0x3F;
  447.     ret = string(ret, base64_code(c:val));
  448.     val = _bits & 0x3F;
  449.     ret = string(ret, base64_code(c:val));
  450.     char_count = 0;
  451.     _bits = 0;
  452.  }
  453.  else {
  454.        _bits = _bits * 256;
  455.        }
  456.  i = i + 1;
  457.  }
  458.  
  459.  
  460.  if(!(char_count == 0))
  461.  {
  462.   cnt = char_count * 8;
  463.   mul = 16;
  464.   mul = mul - cnt;
  465.   mul = pow2(x:mul);
  466.   _bits = _bits * mul;
  467.   val = _bits / 262144;
  468.   ret = string(ret, base64_code(c:val));
  469.   val = _bits / 4096;
  470.   val = val & 0x3F;
  471.   ret = string(ret, base64_code(c:val));
  472.  if(char_count == 1)
  473.  { 
  474.   ret = string(ret, "==");
  475.  }
  476.  else
  477.  {
  478.    val = _bits / 64;
  479.    val = val & 0x3F;
  480.    ret = string(ret, base64_code(c:val), "=");
  481.   }
  482.  }
  483.  return(ret);
  484. }
  485.  
  486.  
  487. # This function converts a string representing a decimal number to 
  488. # to hexadecimal; eg, dec2hex(1098757090) == "417db3e2".
  489. #
  490. # Args:
  491. #   o num, decimal number.
  492. #
  493. # Return:
  494. #   hex number represented as a raw string.
  495. #
  496. # updated: 16-Nov-2004, George A. Theall
  497. #
  498. function dec2hex(num) {
  499.   local_var digits, hex, rem;
  500.   hex = "";
  501.  
  502.   num = int(num);
  503.   while (num > 0) {
  504.     rem = num % 256;
  505.     hex = raw_string(rem, hex);
  506.     num = num / 256;
  507.     if (num > 0 && num < 255) {
  508.       hex = raw_string(num, hex);
  509.       num = 0;
  510.     }
  511.   }
  512.   if (!hex) hex = raw_string(0x00);
  513.  
  514.   return hex;
  515. }
  516.  
  517. # Convert a Date CVS field to Unix time 
  518. # Michel Arboi
  519.  
  520. function cvsdate2unixtime(date)
  521. {
  522.   local_var v, u;
  523.   if (! defined_func("mktime")) return NULL;    # We could write it in NASL...
  524.   v = eregmatch(string: date, pattern: "\$Date: 2004/12/12 11:38:34 $");
  525.   if (isnull(v)) return;
  526.   u = mktime(year: v[1], mon: v[2], mday: v[3], hour: v[3], min: v[5], sec: v[6]);
  527.   return u;
  528. }
  529.  
  530.